s" C:/forth/tests1.in" INPUT
s" C:/forth/testst1.out" OUTPUT

ENCRYPT_TRANSPOSITION

OUTPUT_CLOSE
INPUT_CLOSE

s" C:/forth/testst1.out" INPUT
s" C:/forth/testsdt1.out" OUTPUT

DECRYPT_TRANSPOSITION

OUTPUT_CLOSE
INPUT_CLOSE

s" C:/forth/tests2.in" INPUT
s" C:/forth/testst2.out" OUTPUT

ENCRYPT_TRANSPOSITION

OUTPUT_CLOSE
INPUT_CLOSE

s" C:/forth/testst2.out" INPUT
s" C:/forth/testsdt2.out" OUTPUT

DECRYPT_TRANSPOSITION

OUTPUT_CLOSE
INPUT_CLOSE
